Option Explicit
Sub A_Sample004()
    Dim myRng As Range
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)	'N
    'ǳƨ즹
    Set myRng = mySht.UsedRange
    MsgBox myRng.Address
    Set myRng = Nothing		'
    Set mySht = Nothing
End Sub
